Skip to content


Subversion checkout URL

You can clone with
Download ZIP
Tree: f13f763570
Fetching contributors…

Cannot retrieve contributors at this time

14 lines (12 sloc) 0.337 kB
module Main where
import OpenAFP
main :: IO ()
main = do
args <- getArgs
if null args then error "Usage: afp-type file.afp" else do
cs <- readAFP $ head args
case find (~~ _ER) cs of
Nothing -> return ()
Just c -> do
resName <- er `applyToChunk` c
putStrLn $ fromAStr resName
Jump to Line
Something went wrong with that request. Please try again.