Use fromMaybe instead of maybe where applicable

haskell · Oct 2, 2024 · db7e413 · db7e413
1 parent 1757fe6
commit db7e413
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/lib/tabular/src/Happy/Tabular/First.lhs b/lib/tabular/src/Happy/Tabular/First.lhs
@@ -9,6 +9,7 @@ Implementation of FIRST
 > import Happy.Tabular.NameSet ( NameSet )
 > import qualified Happy.Tabular.NameSet as Set
 > import Happy.Grammar
+> import Data.Maybe (fromMaybe)
 
 \subsection{Utilities}
 
@@ -36,7 +37,7 @@ This will never terminate.
 >                  , lookupProdsOfName = prodsOfName
 >                  , non_terminals = nts
 >                  })
->       = joinSymSets (\ h -> maybe (Set.singleton h) id (lookup h env) )
+>       = joinSymSets (\h ->fromMaybe (Set.singleton h) (lookup h env))
 >   where
 >       env = mkClosure (==) (updateFirstSets fst_term prodNo prodsOfName) [(name,Set.empty) | name <- nts]