module NodeMatch where

import qualified HatTrace as Thorsten
import qualified LowLevel as Malcolm

toFileNode :: Thorsten.HatRep a => a -> Malcolm.FileNode
toFileNode x =
    let hn = Thorsten.toHatNode x in
    if Thorsten.isInvalidNode hn then Malcolm.FileNode 0
    else Malcolm.FileNode (Thorsten.fromHatNode hn)