wrath/shaniqua-plugins
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Fixes to use $fptools-compatible Dynamic

Browse Source
This commit is contained in:
Don Stewart
2005-05-19 03:24:30 +00:00
parent 6045e47850
commit ff2a96c13d
6 changed files with 36 additions and 47 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
src/plugins/System/Plugins/Load.hs
View File

@ -54,7 +54,7 @@ import System.Plugins.Consts ( sysPkgSuffix, hiSuf, prefixUnderscore )
import Language.Hi.Parser
import AltData.Dynamic ( fromDyn, Dynamic )
import AltData.Dynamic ( fromDynamic, Dynamic )
import AltData.Typeable ( Typeable )
import Data.List ( isSuffixOf, nub, nubBy )
@ -161,7 +161,7 @@ dynload obj incpaths pkgconfs sym = do
s <- load obj incpaths pkgconfs sym
case s of e@(LoadFailure _) -> return e
LoadSuccess m dyn_v -> return $
case fromDyn (unsafeCoerce# dyn_v :: Dynamic) of
case fromDynamic (unsafeCoerce# dyn_v :: Dynamic) of
Just v' -> LoadSuccess m v'
Nothing -> LoadFailure ["Mismatched types in interface"]