Ticket #4874: Test.hs

File Test.hs, 123 bytes (added by tibbe, 2 years ago)
Line 
1module Test (test) where
2
3import qualified Data.HashMap as M
4
5test :: M.HashMap Int Int -> Maybe Int
6test m = M.lookup 1 m