module Haskell.Debug.Adapter.TH.Utility where


-- |
--
rdrop :: String -> String -> String
rdrop :: String -> String -> String
rdrop String
str = forall a. [a] -> [a]
reverse forall b c a. (b -> c) -> (a -> b) -> a -> c
. forall a. Int -> [a] -> [a]
drop (forall (t :: * -> *) a. Foldable t => t a -> Int
length String
str) forall b c a. (b -> c) -> (a -> b) -> a -> c
. forall a. [a] -> [a]
reverse

-- |
--
fieldModifier :: String -> String -> String
fieldModifier :: String -> String -> String
fieldModifier String
str  = forall a. [a] -> [a]
tail forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> String -> String
rdrop String
str