diff options
Diffstat (limited to 'compiler/GHC/Types/Unique/Supply.hs')
| -rw-r--r-- | compiler/GHC/Types/Unique/Supply.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/compiler/GHC/Types/Unique/Supply.hs b/compiler/GHC/Types/Unique/Supply.hs index fb2dbf62f6..4060ca53b4 100644 --- a/compiler/GHC/Types/Unique/Supply.hs +++ b/compiler/GHC/Types/Unique/Supply.hs @@ -222,9 +222,9 @@ mkSplitUniqSupply c (# s4, MkSplitUniqSupply (mask .|. u) x y #) }}}} -runUniqSMIO :: UniqSM a -> IO a -runUniqSMIO m = do - us <- mkSplitUniqSupply 'u' +runUniqSMIO :: Char -> UniqSM a -> IO a +runUniqSMIO !c m = do + us <- mkSplitUniqSupply c return (initUs_ us m) #if !MIN_VERSION_GLASGOW_HASKELL(9,1,0,0) |