Update dotfiles
This commit is contained in:
parent
70e563d09f
commit
2e31900432
68 changed files with 1317 additions and 0 deletions
14
vim-plugins/bundle/haskell-vim/tests/indent/run.sh
Normal file
14
vim-plugins/bundle/haskell-vim/tests/indent/run.sh
Normal file
|
|
@ -0,0 +1,14 @@
|
|||
#!/bin/sh
|
||||
|
||||
for i in test???; do
|
||||
cd $i
|
||||
nvim --headless -s test.vim test.hs 2> /dev/null
|
||||
diff expected.hs result.hs
|
||||
if [ $? -eq 0 ]; then
|
||||
echo "$(basename $PWD) succeded"
|
||||
rm result.hs
|
||||
else
|
||||
echo "$(basename $PWD) failed"
|
||||
fi
|
||||
cd ..
|
||||
done
|
||||
|
|
@ -0,0 +1,5 @@
|
|||
data Foo = Foo
|
||||
{ foo :: Int
|
||||
-- comment
|
||||
, bar :: Int
|
||||
}
|
||||
|
|
@ -0,0 +1,5 @@
|
|||
data Foo = Foo
|
||||
{ foo :: Int
|
||||
-- comment
|
||||
, bar :: Int
|
||||
}
|
||||
|
|
@ -0,0 +1,3 @@
|
|||
=G
|
||||
:saveas! result.hs
|
||||
:q!
|
||||
|
|
@ -0,0 +1,2 @@
|
|||
-- | This is a function.
|
||||
fun -- this shouldn't be indented
|
||||
|
|
@ -0,0 +1,2 @@
|
|||
-- | This is a function.
|
||||
fun -- this shouldn't be indented
|
||||
|
|
@ -0,0 +1,3 @@
|
|||
=G
|
||||
:saveas! result.hs
|
||||
:q!
|
||||
|
|
@ -0,0 +1,4 @@
|
|||
data Test = Test
|
||||
{ x :: {-# UNPACK #-} !Int
|
||||
, y :: {-# UNPACK #-} !Int
|
||||
}
|
||||
|
|
@ -0,0 +1,4 @@
|
|||
data Test = Test
|
||||
{ x :: {-# UNPACK #-} !Int
|
||||
, y :: Int
|
||||
}
|
||||
|
|
@ -0,0 +1,3 @@
|
|||
2jfIi{-# UNPACK #-} !
|
||||
:saveas! result.hs
|
||||
:q!
|
||||
|
|
@ -0,0 +1,4 @@
|
|||
foo =
|
||||
{ field = bar "("
|
||||
, quux = ""
|
||||
}
|
||||
|
|
@ -0,0 +1,3 @@
|
|||
foo =
|
||||
{ field = bar "("
|
||||
}
|
||||
|
|
@ -0,0 +1,3 @@
|
|||
jo, quux = ""
|
||||
:saveas! result.hs
|
||||
:q!
|
||||
|
|
@ -0,0 +1,2 @@
|
|||
[ (NS spotify spotify (className =? "Spotify") doFullFloat )
|
||||
, ]
|
||||
|
|
@ -0,0 +1,2 @@
|
|||
[ (NS spotify spotify (className =? "Spotify") doFullFloat )
|
||||
,]
|
||||
|
|
@ -0,0 +1,3 @@
|
|||
ja
|
||||
:saveas! result.hs
|
||||
:q!
|
||||
|
|
@ -0,0 +1,2 @@
|
|||
foo = doSomething 123 -- Do something important.
|
||||
bar
|
||||
|
|
@ -0,0 +1 @@
|
|||
foo = doSomething 123 -- Do something important.
|
||||
|
|
@ -0,0 +1,3 @@
|
|||
obar
|
||||
:saveas! result.hs
|
||||
:q!
|
||||
|
|
@ -0,0 +1,5 @@
|
|||
data Customer = Customer
|
||||
{ customerID :: CustomerID
|
||||
, customerName :: String
|
||||
, customerAddress :: Address
|
||||
} deriving (Show)
|
||||
|
|
@ -0,0 +1,5 @@
|
|||
data Customer = Customer
|
||||
{ customerID :: CustomerID
|
||||
, customerName :: String
|
||||
, customerAddress :: Address
|
||||
} deriving (Show)
|
||||
|
|
@ -0,0 +1,3 @@
|
|||
=G
|
||||
:saveas! result.hs
|
||||
:q!
|
||||
|
|
@ -0,0 +1,6 @@
|
|||
data Foo
|
||||
= Foo
|
||||
{ foo :: Int
|
||||
, bar :: Char
|
||||
, baz :: Int
|
||||
} deriving (Eq, Ord)
|
||||
|
|
@ -0,0 +1,6 @@
|
|||
data Foo
|
||||
= Foo
|
||||
{ foo :: Int
|
||||
, bar :: Char
|
||||
, baz :: Int
|
||||
} deriving (Eq, Ord)
|
||||
|
|
@ -0,0 +1,3 @@
|
|||
=G
|
||||
:saveas! result.hs
|
||||
:q!
|
||||
|
|
@ -0,0 +1,2 @@
|
|||
let x =
|
||||
123
|
||||
|
|
@ -0,0 +1 @@
|
|||
let x =
|
||||
|
|
@ -0,0 +1,3 @@
|
|||
o123
|
||||
:saveas! result.hs
|
||||
:q!
|
||||
|
|
@ -0,0 +1,2 @@
|
|||
SomeRecord { name = ")"
|
||||
,
|
||||
|
|
@ -0,0 +1 @@
|
|||
SomeRecord { name = ")"
|
||||
|
|
@ -0,0 +1,3 @@
|
|||
o,
|
||||
:saveas! result.hs
|
||||
:q!
|
||||
|
|
@ -0,0 +1,3 @@
|
|||
add1 x = x + y
|
||||
where
|
||||
y = 1
|
||||
|
|
@ -0,0 +1,3 @@
|
|||
add1 x = x + y
|
||||
where
|
||||
y = 1
|
||||
|
|
@ -0,0 +1,3 @@
|
|||
=G
|
||||
:saveas! result.hs
|
||||
:q!
|
||||
|
|
@ -0,0 +1,3 @@
|
|||
add2 x = let y = 1
|
||||
z = 1
|
||||
in = x + y + z
|
||||
|
|
@ -0,0 +1,3 @@
|
|||
add2 x = let y = 1
|
||||
z = 1
|
||||
in = x + y + z
|
||||
|
|
@ -0,0 +1,3 @@
|
|||
=G
|
||||
:saveas! result.hs
|
||||
:q!
|
||||
|
|
@ -0,0 +1,2 @@
|
|||
--
|
||||
type F k = [k]
|
||||
|
|
@ -0,0 +1,2 @@
|
|||
--
|
||||
type F k = [k]
|
||||
|
|
@ -0,0 +1,3 @@
|
|||
=G
|
||||
:saveas! result.hs
|
||||
:q!
|
||||
|
|
@ -0,0 +1,5 @@
|
|||
foo :: Monad m
|
||||
=> Functor m
|
||||
=> MonadIO m
|
||||
-> Int
|
||||
foo x = x
|
||||
|
|
@ -0,0 +1 @@
|
|||
foo :: Monad m
|
||||
|
|
@ -0,0 +1,3 @@
|
|||
o=> Functor m
=> MonadIO m
-> Int
foo x = x
|
||||
:saveas! result.hs
|
||||
:q!
|
||||
|
|
@ -0,0 +1,3 @@
|
|||
f x = y
|
||||
where
|
||||
y = 2 * x
|
||||
|
|
@ -0,0 +1,3 @@
|
|||
f x = y
|
||||
where
|
||||
y = 2 * x
|
||||
|
|
@ -0,0 +1,6 @@
|
|||
:set sw=4
|
||||
:let g:haskell_indent_before_where=2
|
||||
:let g:haskell_indent_after_bare_where=2
|
||||
=G
|
||||
:saveas! result.hs
|
||||
:q!
|
||||
|
|
@ -0,0 +1,6 @@
|
|||
where
|
||||
foo :: Monad m
|
||||
=> Functor m
|
||||
=> MonadIO m
|
||||
-> Int
|
||||
foo x = x
|
||||
|
|
@ -0,0 +1,5 @@
|
|||
where
|
||||
foo :: Monad m
|
||||
=> Functor m
|
||||
=> MonadIO m
|
||||
-> Int
|
||||
|
|
@ -0,0 +1,3 @@
|
|||
Gofoo x = x
|
||||
:saveas! result.hs
|
||||
:q!
|
||||
|
|
@ -0,0 +1,2 @@
|
|||
where countUntilClosed (x:xs)
|
||||
| x
|
||||
|
|
@ -0,0 +1 @@
|
|||
where countUntilClosed (x:xs)
|
||||
|
|
@ -0,0 +1,3 @@
|
|||
o| x
|
||||
:saveas! result.hs
|
||||
:q!
|
||||
|
|
@ -0,0 +1,4 @@
|
|||
let foo = 1
|
||||
bar = baz
|
||||
quux
|
||||
in
|
||||
|
|
@ -0,0 +1,4 @@
|
|||
let foo = 1
|
||||
bar = baz
|
||||
quux
|
||||
in
|
||||
|
|
@ -0,0 +1,3 @@
|
|||
G==
|
||||
:saveas! result.hs
|
||||
:q!
|
||||
|
|
@ -0,0 +1,8 @@
|
|||
foo x
|
||||
| x == x = True
|
||||
|
||||
|
|
||||
|
||||
,
|
||||
|
||||
=
|
||||
|
|
@ -0,0 +1,3 @@
|
|||
foo x
|
||||
| x == x = True
|
||||
|
||||
|
|
@ -0,0 +1,3 @@
|
|||
Go| o
,o
=
|
||||
:saveas! result.hs
|
||||
:q!
|
||||
Loading…
Add table
Add a link
Reference in a new issue