pathInput :: State -> Widget Action
pathInput state = Ulmus.newWidget "pathInput" $ do
    let pr = if lastProject state == ""
             then Nothing
             else Just $ lastProject state
    _ <- getString pr
            ! atr "placeholder" "/path/to/your/project"
            `fire` OnKeyUp
    projPath <- liftIO $ getValueFromId "#pathInput event input"
    return $ NewPath projPath
pathInput :: State -> Widget Action
pathInput state = Ulmus.newWidget "pathInput" $ do
    let pr = if lastProject state == ""
             then Nothing
             else Just $ lastProject state
    _ <- getString pr
            ! atr "placeholder" "/path/to/your/project"
            `fire` OnKeyUp
    projPath <- liftIO $ getValueFromId "#pathInput event input"
    return $ NewPath projPath
pathInput state = Ulmus.newWidget "pathInput" $ do
    let pr = if lastProject state == ""
             then Nothing
             else Just $ lastProject state
    _ <- getString pr
            ! atr "placeholder" "/path/to/your/project"
            `fire` OnKeyUp
    projPath <- liftIO $ getValueFromId "#pathInput event input"
    return $ NewPath projPath