git.iko.soy/ghcide
on debugging help sign in
ghcide/test/data/GotoHover.hs
50 lines 1.1 kB history raw
1{- HLINT ignore -}
2module Testing ( module Testing ) where
3import Data.Text (Text, pack)
4data TypeConstructor = DataConstructor
5 { fff :: Text
6 , ggg :: Int }
7aaa :: TypeConstructor
8aaa = DataConstructor
9 { fff = "dfgy"
10 , ggg = 832
11 }
12bbb :: TypeConstructor
13bbb = DataConstructor "mjgp" 2994
14ccc :: (Text, Int)
15ccc = (fff bbb, ggg aaa)
16ddd :: Num a => a -> a -> a
17ddd vv ww = vv +! ww
18a +! b = a - b
19hhh (Just a) (><) = a >< a
20iii a b = a `b` a
21jjj s = pack $ s <> s
22class MyClass a where
23 method :: a -> Int
24instance MyClass Int where
25 method = succ
26kkk :: MyClass a => Int -> a -> Int
27kkk n c = n + method c
29doBind :: Maybe ()
30doBind = do unwrapped <- Just ()
31 return unwrapped
33listCompBind :: [Char]
34listCompBind = [ succ c | c <- "ptfx" ]
36multipleClause :: Bool -> Char
37multipleClause True = 't'
38multipleClause False = 'f'
40-- | Recognizable docs: kpqz
41documented :: Monad m => Either Int (m a)
42documented = Left 7518
44listOfInt = [ 8391 :: Int, 6268 ]
46outer :: Bool
47outer = undefined where
49 inner :: Char
50 inner = undefined