mirror of
https://github.com/idris-lang/Idris2.git
synced 2024-12-29 14:44:03 +03:00
[ lint ] remove trailing whitespace
This commit is contained in:
parent
25def217fb
commit
fb77a3e043
@ -23,4 +23,5 @@ doSort (S k) = do let xs = sort $ randishInts 12000 $ natToInteger k
|
||||
|
||||
main : IO ()
|
||||
main = do max <- getLine
|
||||
doSort (integerToNat (cast max))
|
||||
doSort (integerToNat (cast max))
|
||||
|
||||
|
@ -19,7 +19,7 @@ doSort (S k) = do Right dict<-readFile "words"
|
||||
-- sort reversed list and get last word
|
||||
putStrLn $ show $ mylast $ sort xs
|
||||
doSort k
|
||||
|
||||
|
||||
main : IO ()
|
||||
main = do max <- getLine
|
||||
doSort (integerToNat (cast max))
|
||||
|
@ -3,7 +3,7 @@ import Data.Strings
|
||||
import Data.List
|
||||
|
||||
main : IO ()
|
||||
main = do
|
||||
main = do
|
||||
putStrLn "input file: "
|
||||
file<-getLine
|
||||
Right tocheck<-readFile file
|
||||
|
@ -620,7 +620,7 @@ docsOrSignature fc n
|
||||
let ns@(_ :: _) = concatMap (\n => lookupName n (docstrings syn))
|
||||
(map fst all)
|
||||
| [] => typeSummary defs
|
||||
getDocsFor fc n
|
||||
getDocsFor fc n
|
||||
where
|
||||
typeSummary : Defs -> Core (List String)
|
||||
typeSummary defs = do Just def <- lookupCtxtExact n (gamma defs)
|
||||
|
Loading…
Reference in New Issue
Block a user