import System
import List
main = do args <- getArgs
cs <- getContents
putStr $ fgrep (head args) cs
fgrep :: String -> String -> String
fgrep pattern cs = unlines $ filter match $ lines cs
where
match :: String -> Bool
match line = any prefixp $ tails line
prefixp :: String -> Bool
prefixp line = pattern 'isPrefixOf' line
>>618のエラーが出るのは何故でしょうか
GHCのバージョンは7.4.1です